package com.moro.lisp.typedefine;

import com.moro.lisp.JLispData;
import com.moro.lisp.JLispType;
import com.moro.lisp.os.Terminal;

public class Error {
	private String errorText;
	
	public Error(String errorText) {//每创建一个错误类型的对象都要在Lisp终端打印错误信息，提示有一个错误
		this.errorText = errorText;
		Terminal.errorPrint(errorText);
		
	}
	
	public String getErrorText() {
		return this.errorText;
	}
	
	public JLispData eval() {//错误值也是对自身求值，不需要符号池
		return new JLispData(this, JLispType.ERROR);
	}
}
